home *** CD-ROM | disk | FTP | other *** search
/ MacFormat 1997 February / macformat-047.iso / Demos / Chiller Killers / WEBCHILL / WEB10.DCR / 00100.ls < prev    next >
Encoding:
Text File  |  1996-07-19  |  222 b   |  16 lines
  1. on mixdown
  2.   global dd
  3.   set dd to random(3)
  4.   if dd = 1 then
  5.     set dd to 103
  6.   end if
  7.   if dd = 2 then
  8.     set dd to 110
  9.   end if
  10.   if dd = 3 then
  11.     set dd to 111
  12.   end if
  13.   puppetSound(2, 0)
  14.   puppetSound(2, dd)
  15. end
  16.